#!./perl

# ------------------------------------------------------------

# tools.pl, by Jean-Pierre Girard (jpg@corrado.sun.com)
# This allows the development environment to choose what
# page to load depending on the existence of .cdev

# ------------------------------------------------------------

# Bugs and other fixes

# ------------------------------------------------------------
##############################################################################
# PrintErr: display an error message in HTML format (uses $Errors)
##############################################################################
%Errors = (
"NoCreation", "Cannot create",
"NoOpen", "Cannot open",
"NoExist", "Cannot find",
"NoDevice", "This is not a correct device: ",
"NoWriteDev", "Couldn't write on the device!",
"MisCompany", "The company name is missing!",
"MisProduct1", "You need to enter at least one product name!",
"MisDescription", "You need to describe what your company/Product does!",
"MisCat", "You need to choose at least one category!",
"MisHome", "You need to specify the file name of your home page!",
"TooManyCat", "You need to choose at most three categories!",
"MisPlat", "You need to specify at least one Sun platform !",
);

sub PrintErr
{
	print STDOUT "<H3><dd><app class=\"ImageLoopItem\" img=\"file:///tmp/httpd/.products/DEV/images/blinkingAlert\" ALIGN=middle pause=0 width=56 height=49 pause = 200>$Errors{$_[0]} $_[1]</H3></dd>\n";
	1;
}
